﻿Imports BUS
Public Class frmCaiDat
    Dim ketnoi As Boolean = False
    Dim hoster As String = ""

    Private Sub frmCaiDat_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        
        hoster = DataProviderBUS.HostKetNoi()
        If hoster <> "#" Then
            Dim testconnection = DataProviderBUS.TestConnection()
            If testconnection = False Then
                ketnoi = False
            Else
                txtHostHienTai.Text = hoster
                ketnoi = True
            End If
            btnTestCurrent.Enabled = True
        Else
            txtHostHienTai.Text = "Chưa kết nối đến máy chủ"
            btnTestCurrent.Enabled = False
        End If
        txtHostMoi.Enabled = False
    End Sub

    Private Sub ckSuaDoiKetNoi_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ckSuaDoiKetNoi.CheckedChanged
        If ckSuaDoiKetNoi.Checked = True Then
            txtHostMoi.Enabled = True
            btnTest.Enabled = True
        Else
            txtHostMoi.Enabled = False
            btnTest.Enabled = False
        End If
    End Sub

    Private Sub BtnLuuKetNoi_Click(sender As System.Object, e As System.EventArgs) Handles BtnLuuKetNoi.Click
        DataProviderBUS.StoreConnectionString(txtHostMoi.Text)
        txtHostHienTai.Text = DataProviderBUS.HostKetNoi()
        ketnoi = True
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If ketnoi = True Then
            Me.Close()
        Else
            MessageBox.Show("Chưa tồn tại tên máy chủ hợp lệ.", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnTest_Click(sender As System.Object, e As System.EventArgs) Handles btnTest.Click
        If txtHostMoi.Text <> "" Then
            Dim testconnection = DataProviderBUS.TestConnection_Hoster(txtHostMoi.Text)
            If testconnection = False Then
                MessageBox.Show("Kết nối với máy chứa CSDL thất bại.")
             
                BtnLuuKetNoi.Enabled = False
            Else
                MessageBox.Show("Kết nối với máy chứa CSDL thành công.")
                BtnLuuKetNoi.Enabled = True
            End If

            
        End If
        
    End Sub

    Private Sub btnTestCurrent_Click(sender As System.Object, e As System.EventArgs) Handles btnTestCurrent.Click
        If hoster <> "#" Then
            Dim testconnection = DataProviderBUS.TestConnection()
            If testconnection = False Then
                MessageBox.Show("Kết nối với máy chứa CSDL hiện tại thất bại.")
                Dim frmCaiDat As New frmCaiDat()
                frmCaiDat.MdiParent = Me
                frmCaiDat.Show()
                frmCaiDat.TabPageKetNoi.Focus()
                BtnLuuKetNoi.Enabled = False
            Else
                MessageBox.Show("Kết nối với máy chưa CSDL thành công.")
                BtnLuuKetNoi.Enabled = True
            End If
        Else
            MessageBox.Show("Chưa có kết nối tới bất kì máy chủ nào.")
        End If
    End Sub
End Class